home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1155 < prev    next >
Encoding:
Text File  |  1994-01-25  |  268 b   |  12 lines
  1. /newnoise 
  2. { supdict begin 
  3. q newinside
  4. [0 0 0 1] vc
  5.  /mx exch 255 mul cvi def  
  6.  /mn exch 255 mul cvi def 
  7.  /dff mx mn sub def
  8.  dx dy scale 
  9.  dx dy 8 [ dx 0 0 dy 0 0 ]
  10. { 0 1 511{ str1 exch rand -16 bitshift 255 and dff mod mn add put } for str1} 
  11.  image Q end } def